home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / b.body twister (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  659b  |  27 lines
  1. 5 gosub41000
  2. 6 d=peek(186):ifd<8thend=8
  3. 10 a$="body.pkd
  4. 20 [153]"stoploada$,d":[153]"run"
  5. 30 q[178]08:[151]44,q:[151]q[172]256,0
  6. 40 [151]198,2:[151]631,13:[151]632,13:[128]
  7. 9999 [128]
  8. 10000 d[178][194](186):[159]1,d,15,"i0":[160]1:n$[178]"b.body twister"
  9. 10001 [159]1,d,15,"s0:"[170]n$:[160]1:[148]n$,d:[128]
  10. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  11. 41002 [151]214,14:[153]
  12. 41004 [153][163]1)"list                                     "
  13. 41005 [129]x[178]1[164]6
  14. 41006 [153][163]1)"print#                                     "
  15. 41007 [130]
  16. 41013 [153][163]1)"poke                                     "
  17. 41020 [129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
  18. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  19. 41024 [130]
  20. 41030 t[178]ti[170]60
  21. 41031 [139]t[177]ti[167]41031
  22. 41032 [153]"":[142]
  23. 41050 [131]"peek (NULL)closestr$ (NULL)   (NULL) (NULL) right$close(NULL) (NULL)closeval (NULL)
  24. 41051 data"by [196]ave [205]oorman
  25. 41052 [131]"(c) 2003 by mid$ & asc (NULL)ublishing, right$nc.
  26. 41053 data"www.loadstar.com
  27.